|
800
|
How can I change the color for a particular bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "B1" Nothing
Variant h
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/6/2001" "B2" Nothing
Set ComItemBar of hoItems h "B2" OLEexBarColor to 255
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/6/2001" "1/14/2001" "B3" Nothing
Send Destroy to hoItems
End_Procedure
|
|
799
|
How can I change the color or visual appearance using EBN files for a particular bar
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyPJkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHRmi8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDUKJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4KiKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJgFh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmgiYg2g2I4JiCQwuAqWIOIkEAQICA==" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Set ComHeight of hoBar to 16
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "B1" Nothing
Variant h
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/6/2001" "B2" Nothing
Set ComItemBar of hoItems h "B2" OLEexBarColor to 255
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/6/2001" "1/14/2001" "B3" Nothing
Send Destroy to hoItems
End_Procedure
|
|
798
|
How can I resize programmatically a bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/6/2001" "B2" Nothing
Set ComItemBar of hoItems h "B2" OLEexBarDuration to 1
Send Destroy to hoItems
End_Procedure
|
|
797
|
How can I move programmatically a bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/6/2001" "B2" Nothing
Set ComItemBar of hoItems h "B2" OLEexBarMove to -2
Send Destroy to hoItems
End_Procedure
|
|
796
|
How can I select displaying the histogram for an item and all its child items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComShowFocusRect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Hist" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 18
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 96
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to (|CI$10000 + OLEexHistogramNoGrouping + OLEexHistogramRecLeafItems + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Set ComHistogramHeight of hoChart to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramCriticalColor of hoBar to (RGB(255,0,0))
Set ComHistogramPattern of hoBar to OLEexBezierCurve
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Send ComAddBar of hoItems h "Summary" "6/21/2005" "7/1/2005" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/28/2005" Nothing Nothing
Set ComCellMerge of hoItems h1 0 to 1
Send ComDefineSummaryBars of hoItems h "" h1 ""
Get ComInsertItem of hoItems h "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/23/2005" "7/1/2005" "E" Nothing
Set ComCellMerge of hoItems h1 0 to 1
Send ComDefineSummaryBars of hoItems h "" h1 "E"
Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
Get ComInsertItem of hoItems h "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/25/2005" "6/27/2005" "E" Nothing
Set ComCellMerge of hoItems h1 0 to 1
Send ComDefineSummaryBars of hoItems h "" h1 "E"
Set ComExpandItem of hoItems h to True
Set ComCellState of hoItems h 1 to 1
Get ComAddItem of hoItems "Project 2" to h
Send ComAddBar of hoItems h "Summary" "6/26/2005" "7/6/2005" Nothing Nothing
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/26/2005" "7/2/2005" Nothing Nothing
Set ComCellMerge of hoItems h1 0 to 1
Send ComDefineSummaryBars of hoItems h "" h1 ""
Get ComInsertItem of hoItems h "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/28/2005" "7/6/2005" "E" Nothing
Set ComCellMerge of hoItems h1 0 to 1
Send ComDefineSummaryBars of hoItems h "" h1 "E"
Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
Get ComInsertItem of hoItems h "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" "E" Nothing
Set ComCellMerge of hoItems h1 0 to 1
Send ComDefineSummaryBars of hoItems h "" h1 "E"
Set ComExpandItem of hoItems h to True
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
795
|
How can I select or specify the items being included in the histogram, (using a different column )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to (|CI$10000 + OLEexHistogramCheckedItems)
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Histogram" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 18
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Variant h
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Set ComCellState of hoItems h 1 to 1
Get ComAddItem of hoItems "Item 3" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Set ComCellState of hoItems h 1 to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
794
|
How can I select or specify the items being included in the histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramCheckedItems
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Variant h
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Set ComCellState of hoItems h 0 to 1
Get ComAddItem of hoItems "Item 3" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Set ComCellState of hoItems h 0 to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
793
|
Is there any option to display the histogram for selected items only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramSelectedItems
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Send ComSelectAll of hoItems
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
792
|
Is it possible to add bars to a summary bar so, they get resized or moved as soon as a bar is changed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackColor to (RGB(255,255,255))
Set ComShowFocusRect to False
Set ComHasLines to False
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComHasLines to false
Set ComIndent to 14
Set ComFullRowSelect to False
Set ComScrollBySingleLine to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComBackColor of hoChart to (RGB(255,255,255))
Set ComSelBackColor of hoChart to (RGB(245,245,245))
Set ComAllowCreateBar of hoChart to False
Set ComAllowLinkBars of hoChart to False
Set ComFirstVisibleDate of hoChart to "1/1/2008"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 98
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant hProject
Get ComAddItem of hoItems "Project" to hProject
Set ComItemHeight of hoItems hProject to 26
Send ComAddBar of hoItems hProject "Project Summary" "1/2/2008" "1/5/2008" Nothing Nothing
Set ComItemBar of hoItems hProject "" OLEexBarCaption to "<br>< <b>Project Summary</b> >"
Variant hR1
Get ComInsertItem of hoItems hProject "Team 1" to hR1
Set ComItemHeight of hoItems hR1 to 30
Send ComAddBar of hoItems hR1 "Summary" "1/2/2008" "1/8/2008" Nothing Nothing
Set ComItemBar of hoItems hR1 "" OLEexBarCaption to "<br> Team <b>1</b> Summary "
Variant h1
Get ComInsertItem of hoItems hR1 "Member 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2008" "1/7/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
Get ComInsertItem of hoItems hR1 "Member 2" to h1
Send ComAddBar of hoItems h1 "Task" "1/4/2008" "1/9/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
Get ComInsertItem of hoItems hR1 "Member 3" to h1
Send ComAddBar of hoItems h1 "Task" "1/5/2008" "1/10/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
Set ComExpandItem of hoItems hR1 to True
Variant hR2
Get ComInsertItem of hoItems hProject "Team 2" to hR2
Set ComItemHeight of hoItems hR2 to 30
Send ComAddBar of hoItems hR2 "Summary" "1/2/2008" "1/8/2008" Nothing Nothing
Set ComItemBar of hoItems hR2 "" OLEexBarCaption to "<br> Team <b>2</b> Summary "
Variant h2
Get ComInsertItem of hoItems hR2 "Member 1" to h2
Send ComAddBar of hoItems h2 "Task" "1/4/2008" "1/7/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR2 "" h2 ""
Get ComInsertItem of hoItems hR2 "Member 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/8/2008" "1/11/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR2 "" h2 ""
Get ComInsertItem of hoItems hR2 "Member 3" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2008" "1/12/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR2 "" h2 ""
Set ComExpandItem of hoItems hR2 to True
Set ComExpandItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Send ComDefineSummaryBars of hoItems hProject "" hR1 ""
Send ComDefineSummaryBars of hoItems hProject "" hR2 ""
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
791
|
Is it possible to define level in terms of just increasing numbers (not a Date)
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 32
Set ComUnitWidth of hoChart to 32
Set ComFirstVisibleDate of hoChart to 1000
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%i%>"
Send Destroy to hoLevel
Send Destroy to hoChart
End_Procedure
|
|
790
|
How can I hide the non-working units ( days or hours )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%dddd%>"
Set ComAlignment of hoLevel to OLECenterAlignment
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Send Destroy to hoLevel1
Set ComNonworkingHours of hoChart to 16773375
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingDates of hoChart to False
Set ComShowNonworkingHours of hoChart to False
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
789
|
Is there a way to have the display show the word "Noon" instead "12:00 PM" in the chart's header/levels
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "1/1/2001 10:00:00 AM"
Set ComLevelCount of hoChart to 3
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%mmm%> <%d%>, <%yyyy%></b>"
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%h%>:00 <%AM/PM%>"
Set ComAlignment of hoLevel1 to OLECenterAlignment
Set ComUnit of hoLevel1 to OLEexHour
Set ComDrawTickLines of hoLevel1 to True
Set ComDrawGridLines of hoLevel1 to True
Set ComReplaceLabel of hoLevel1 "12:00 PM" to "<fgcolor=0000FF><b>Noon</b></fgcolor>"
Send Destroy to hoLevel1
Variant voLevel2
Get ComLevel of hoChart 2 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComLabel of hoLevel2 to ""
Set ComUnit of hoLevel2 to OLEexMinute
Set ComCount of hoLevel2 to 15
Send Destroy to hoLevel2
Send Destroy to hoChart
End_Procedure
|
|
788
|
How can I change the selection background color in the chart area
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComSelBackColor of hoChart1 to (RGB(255,0,0))
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/6/2001" "1/14/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
787
|
How can I change the selection background color in the chart area
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComSelBackColor of hoChart1 to |CI$1000000
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/6/2001" "1/14/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
786
|
Is there any way to extend the selection on the chart
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant v
Get ComSelBackColor to v
Set ComSelBackColor of hoChart1 to v
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/6/2001" "1/14/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
785
|
How can I display the column's header using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 128
Set ComHeaderSingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "This is just a column that should break the header." to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "This is just another column that should break the header." to Nothing
Send Destroy to hoColumns1
End_Procedure
|
|
784
|
Can I move or limit moving or resizing a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexAllLines
Set ComDefaultItemHeight to 19
Set ComGridLineColor to (RGB(220,220,220))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComScrollRange of hoChart OLEexStartDate to "12/28/2000"
Set ComScrollRange of hoChart OLEexEndDate to "1/12/2001"
Set ComDrawDateTicker of hoChart to True
Set ComNonworkingDays of hoChart to 0
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComAllowCreateBar of hoChart to False
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to False
Send Destroy to hoLevel
Set ComAllowLinkBars of hoChart to False
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Info" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Fixed bar" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "F" Nothing
Set ComItemBar of hoItems h "F" OLEexBarCanResize to False
Set ComItemBar of hoItems h "F" OLEexBarCanMove to False
Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar is fixed, so the uer can move or resize it"
Get ComAddItem of hoItems "Moveable but not-resizable bar" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "F" Nothing
Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar is moveable inside the item, but the user can't resize it."
Set ComItemBar of hoItems h "F" OLEexBarCanResize to False
Get ComAddItem of hoItems "Resizable but not moveable bar" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "F" Nothing
Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar is resizable but the user can't move it."
Set ComItemBar of hoItems h "F" OLEexBarCanMove to False
Get ComAddItem of hoItems "Range Moveable bar" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "F" Nothing
Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
Set ComItemBar of hoItems h "F" OLEexBarMinStart to "1/2/2001"
Set ComItemBar of hoItems h "F" OLEexBarMaxEnd to "1/8/2001"
Set ComItemBar of hoItems h "F" OLEexBarShowRange to 32
Set ComItemBar of hoItems h "F" OLEexBarShowRangeTransparent to 90
Get ComAddItem of hoItems "Range Moveable Upper No Limit bar" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "F" Nothing
Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
Set ComItemBar of hoItems h "F" OLEexBarMinStart to "1/2/2001"
Set ComItemBar of hoItems h "F" OLEexBarShowRange to 32
Set ComItemBar of hoItems h "F" OLEexBarShowRangeTransparent to 90
Get ComAddItem of hoItems "Range Moveable Lower No Limit bar" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "F" Nothing
Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
Set ComItemBar of hoItems h "F" OLEexBarMaxEnd to "1/8/2001"
Set ComItemBar of hoItems h "F" OLEexBarShowRange to 32
Set ComItemBar of hoItems h "F" OLEexBarShowRangeTransparent to 90
Get ComAddItem of hoItems "Moveable bar inside the item" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "F" Nothing
Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved/resized anywhere inside the item."
Get ComAddItem of hoItems "Moveable bar to other items too" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "FA" Nothing
Set ComItemBar of hoItems h "FA" OLEexBarToolTip to "This bar can be moved to other items too. Click the bar and move it to other items too."
Set ComItemBar of hoItems h "FA" OLEexBarCaption to "free"
Set ComItemBar of hoItems h "FA" OLEexBarHAlignCaption to 18
Set ComItemBar of hoItems h "FA" OLEexBarCanMoveToAnother to True
Get ComAddItem of hoItems "Moveable inside item" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "F1" Nothing
Get ComAddItem of hoItems "Moveable inside item" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "F1" Nothing
Get ComAddItem of hoItems "Moveable inside item" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "F1" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
783
|
Can I move a bar from an item to another by drag and drop
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComAllowLinkBars of hoChart1 to False
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars
Get ComBars of hoChart2 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "A" Nothing
Variant h
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B" Nothing
Set ComItemBar of hoItems h "B" OLEexBarCanMoveToAnother to True
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 4" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
782
|
Can I move a bar from an item to another
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "A" Nothing
Variant h
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/6/2001" "1/14/2001" "B" Nothing
Set ComItemBar of hoItems h "B" OLEexBarParent to (ComFirstVisibleItem(hoItems))
Send Destroy to hoItems
End_Procedure
|
|
781
|
How can change the width, transparency, style, visual appearance ( EBN), of the vertical bar that shows the current date-time
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to |CI$1000000
Set ComMarkNowWidth of hoChart to 6
Set ComMarkNowTransparent of hoChart to 50
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
780
|
How can change the width, style, visual appearance ( EBN), of the vertical bar that shows the current time
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to |CI$1000000
Set ComMarkNowWidth of hoChart to 6
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
779
|
How can I show a vertical bar that indicates the current time
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to (RGB(0,0,255))
Set ComMarkNowWidth of hoChart to 7
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
778
|
How can I show semi-transparent the vertical bar that indicates the current time
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to (RGB(0,0,255))
Set ComMarkNowWidth of hoChart to 7
Set ComMarkNowTransparent of hoChart to 50
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
777
|
Is there any way to highlight or show a vertical bar that indicates the current time, from 15 to 15 seconds
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voLevel1
Get ComLevel of hoChart2 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComMarkNowColor of hoChart3 to (RGB(0,0,255))
Send Destroy to hoChart3
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Set ComMarkNowCount of hoChart4 to 15
Send Destroy to hoChart4
Variant voChart5
Get ComChart to voChart5
Handle hoChart5
Get Create (RefClass(cComChart)) to hoChart5
Set pvComObject of hoChart5 to voChart5
Set ComMarkNowWidth of hoChart5 to 3
Send Destroy to hoChart5
End_Procedure
|
|
776
|
Is there any way to highlight or show a vertical bar that indicates the current time, from minute to minute, hour and so on
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComUnitWidth of hoChart to 48
Set ComLevelCount of hoChart to 1
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Set ComMarkNowColor of hoChart to (RGB(255,0,0))
Set ComMarkNowUnit of hoChart to OLEexMinute
Set ComMarkNowWidth of hoChart to (ComUnitWidth(hoChart))
Send Destroy to hoChart
End_Procedure
|
|
775
|
Is there any way to highlight or show a vertical bar that indicates the current time
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voLevel1
Get ComLevel of hoChart2 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComMarkNowColor of hoChart3 to (RGB(255,0,0))
Send Destroy to hoChart3
End_Procedure
|
|
774
|
Is there a way of making a bar flash on the screen
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Flashy task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarTransparent to 80
Send Destroy to hoItems
End_Procedure
|
|
773
|
Is there any option to display overlay bars as a stack, or bars that laid over or cover other bars (exOverlaidBarsStackAutoArrange)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexHLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexHLines
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaid of hoBar OLEexOverlaidBarsTransparent to 80
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
Get ComAddItem of hoItems Nothing to h
Set ComSelectableItem of hoItems h to False
Send ComAddBar of hoItems h "" "1/7/2001" "1/11/2001" "<fgcolor=FF0000>Click a bar and move to a new position."
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
772
|
Is there any option to display overlay bars as a stack, or bars that laid over or cover other bars (overlay)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexHLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexHLines
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
Get ComAddItem of hoItems Nothing to h
Set ComSelectableItem of hoItems h to False
Send ComAddBar of hoItems h "" "1/7/2001" "1/11/2001" "<fgcolor=FF0000>Click a bar and move to a new position."
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
771
|
Does the overlay also work in milestone bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Set ComOverlaidGroup of hoBar to "Milestone"
Send Destroy to hoBar
Variant voBar1
Get ComItem of hoBars "Milestone" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Set ComOverlaidGroup of hoBar1 to "Task"
Send Destroy to hoBar1
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A1" Nothing
Send ComAddBar of hoItems h "Milestone" "1/8/2001" "1/8/2001" "M" Nothing
Send ComAddBar of hoItems h "Task" "1/9/2001" "1/12/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Milestone" "1/4/2001" "1/4/2001" "M" Nothing
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/9/2001" "1/12/2001" "A3" Nothing
Get ComAddItem of hoItems Nothing to h
Set ComSelectableItem of hoItems h to False
Send ComAddBar of hoItems h "" "1/7/2001" "1/11/2001" "<fgcolor=FF0000>Click a bar and move to a new position."
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
770
|
Is there any option to display overlaid bars of different types, or bars that laid over or cover other bars (overlay)
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "RTask" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Variant voBar1
Get ComCopy of hoBars "Task" "GTask" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(0,255,0))
Send Destroy to hoBar1
Variant voBar2
Get ComItem of hoBars "Task" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComOverlaidType of hoBar2 to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Set ComOverlaid of hoBar2 OLEexOverlaidBarsTransparent to 70
Set ComOverlaidGroup of hoBar2 to "RTask,GTask"
Send Destroy to hoBar2
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/8/2001" "A1" Nothing
Send ComAddBar of hoItems h "GTask" "1/7/2001" "1/12/2001" "A2" Nothing
Send ComAddBar of hoItems h "RTask" "1/10/2001" "1/15/2001" "A3" Nothing
Get ComAddItem of hoItems Nothing to h
Set ComSelectableItem of hoItems h to False
Send ComAddBar of hoItems h "" "1/7/2001" "1/11/2001" "<fgcolor=FF0000>Click a bar and move to a new position."
Send Destroy to hoItems
End_Procedure
|
|
769
|
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "BTask" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Variant voBar1
Get ComItem of hoBars "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to OLEexOverlaidBarsIntersect
Set ComOverlaid of hoBar1 OLEexOverlaidBarsIntersect to "BTask"
Send Destroy to hoBar1
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
Get ComAddItem of hoItems Nothing to h
Set ComSelectableItem of hoItems h to False
Send ComAddBar of hoItems h "" "1/7/2001" "1/11/2001" "<fgcolor=FF0000>Click a bar and move to a new position."
Send Destroy to hoItems
End_Procedure
|
|
768
|
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Set ComOverlaid of hoBar OLEexOverlaidBarsTransparent to 70
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
Get ComAddItem of hoItems Nothing to h
Set ComSelectableItem of hoItems h to False
Send ComAddBar of hoItems h "" "1/7/2001" "1/11/2001" "<fgcolor=FF0000>Click a bar and move to a new position."
Send Destroy to hoItems
End_Procedure
|
|
767
|
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultItemHeight to 22
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
Get ComAddItem of hoItems Nothing to h
Set ComSelectableItem of hoItems h to False
Send ComAddBar of hoItems h "" "1/7/2001" "1/11/2001" "<fgcolor=FF0000>Click a bar and move to a new position."
Send Destroy to hoItems
End_Procedure
|
|
766
|
How can include the values in the inner cells in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexRowLines
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Single Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTMLCaption of hoColumn to "Single column with <b>inner cells</b>"
Set ComToolTip of hoColumn to "Click the drop down filter button, and the filter list includes the inner cells values too."
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to OLEexIncludeInnerCells
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComShowFocusRect to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant s
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 1.1")) 0 to s
Set ComCellValue of hoItems s to "S 1.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellBackColor of hoItems s to |CI$1000000
Set ComCellWidth of hoItems s to 84
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 2.1")) 0 to s
Set ComCellValue of hoItems s to "S 2.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellWidth of hoItems s to 84
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 3.1")) 0 to s
Set ComCellValue of hoItems s to "S 3.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellBackColor of hoItems s to |CI$1000000
Set ComCellWidth of hoItems s to 84
Send Destroy to hoItems
End_Procedure
|
|
765
|
How can I sort the value gets listed in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComMarkSearchColumn to False
Set ComDescription OLEexFilterBarAll to ""
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to OLEexSortItemsDesc
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComDisplayFilterPattern of hoColumn1 to False
Set ComFilterList of hoColumn1 to OLEexSortItemsAsc
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Z3" to h
Set ComCellValue of hoItems h 1 to "C"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Z1")) 1 to "B"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Z2")) 1 to "A"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
764
|
Is there a way to break the hours into 15 minute increments just showing lines instead of the minute numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "2/5/2008"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComLevelCount of hoChart1 to 3
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voLevel
Get ComLevel of hoChart2 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%mmm%> <%dd%></b> <%yyyy%> "
Send Destroy to hoLevel
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Variant voLevel1
Get ComLevel of hoChart3 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%hh%>"
Set ComAlignment of hoLevel1 to OLECenterAlignment
Send Destroy to hoLevel1
Send Destroy to hoChart3
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Variant voLevel2
Get ComLevel of hoChart4 2 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComLabel of hoLevel2 to ""
Set ComUnit of hoLevel2 to OLEexMinute
Set ComCount of hoLevel2 to 15
Send Destroy to hoLevel2
Send Destroy to hoChart4
Variant voChart5
Get ComChart to voChart5
Handle hoChart5
Get Create (RefClass(cComChart)) to hoChart5
Set pvComObject of hoChart5 to voChart5
Set ComUnitWidth of hoChart5 to 6
Send Destroy to hoChart5
Send ComEndUpdate
End_Procedure
|
|
763
|
How do I specify a range where the bar can be moved or resized and to highlight the range
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComScrollRange of hoChart1 OLEexStartDate to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComScrollRange of hoChart2 OLEexEndDate to "1/7/2001"
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComPaneWidth of hoChart3 False to 128
Send Destroy to hoChart3
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarMinStart to "1/2/2001"
Set ComItemBar of hoItems h "" OLEexBarMaxEnd to "1/8/2001"
Set ComItemBar of hoItems h "" OLEexBarShowRange to 16777216
Set ComItemBar of hoItems h "" OLEexBarShowRangeTransparent to 60
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
762
|
How do I specify a range where the bar can be moved or resized and to highlight the range
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComScrollRange of hoChart1 OLEexStartDate to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComScrollRange of hoChart2 OLEexEndDate to "1/7/2001"
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComPaneWidth of hoChart3 False to 128
Send Destroy to hoChart3
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarMinStart to "1/2/2001"
Set ComItemBar of hoItems h "" OLEexBarMaxEnd to "1/8/2001"
Set ComItemBar of hoItems h "" OLEexBarShowRange to 32
Set ComItemBar of hoItems h "" OLEexBarShowRangeTransparent to 90
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
761
|
How do I specify a range where the bar can be moved or resized and to highlight the range
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComScrollRange of hoChart1 OLEexStartDate to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComScrollRange of hoChart2 OLEexEndDate to "1/7/2001"
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComPaneWidth of hoChart3 False to 128
Send Destroy to hoChart3
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarMinStart to "1/2/2001"
Set ComItemBar of hoItems h "" OLEexBarMaxEnd to "1/8/2001"
Set ComItemBar of hoItems h "" OLEexBarShowRange to 65286
Set ComItemBar of hoItems h "" OLEexBarShowRangeTransparent to 90
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
760
|
How do I specify a range where the bar can be moved or resized
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComScrollRange of hoChart1 OLEexStartDate to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComScrollRange of hoChart2 OLEexEndDate to "1/7/2001"
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComPaneWidth of hoChart3 False to 128
Send Destroy to hoChart3
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarMinStart to "1/2/2001"
Set ComItemBar of hoItems h "" OLEexBarMaxEnd to "1/8/2001"
Get ComAddItem of hoItems "Item 2" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
759
|
How can I change the visual appearance of the milestone bar using EBN
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiF4aRTHUKAAKQahLEaSZLhEZRQiqA4sS5FQBSBDQFwSByEY6mSaYJAWK4tCyNM7SfQAbxnAgYaLAAYRUjuHZOTZAc4UfAdFL/K4AKrfeZIeAiCRQGiYZyHKaRShjDwXKLIIjbJhkNoJChCNQgBScPgxCx8JypaCaar2fjQM6zWAMdb2Cz7PjDH7wPA1WYJRaDYjhcB4LheAqGXBWUYLYb8XS3EKJYhiWA4HjqFjGJpcEzPbRiNx3H6SABlLLaLo7JpGO52FrTHZjXyzLqBVpoOyEbrmcozYzjN41RpWETfQYDcwteqcLprhGVZrm6dp8j4bAnDQP5Uh+OpcH6R4Lg2YJvEIeg6kWEoJB2ZZyG6GoLCSXxtG+IZ1GmfhJjcawNFWfB/h+V5pnUc5VhWeZ4BMX4jlySwtiAJodlEYRaBYFgHHgIA2gGExkFUdxFl6A5hgUbgXgcVRzFiXA3CICARAEgI" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 -6 0 5 0" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "MilestoneEBN" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$2000000
Set ComHeight of hoBar to 14
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Milestone")) "Milestone" "1/2/2001" "1/2/2001 12:00:01 AM" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Milestone EBN ")) "MilestoneEBN" "1/2/2001" "1/2/2001 12:00:01 AM" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
758
|
How can I change the visual appearance of the summary bar using EBN
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BGICg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGDAADEMgyAJCIxjPIgZBoGqPBpASQJUhkMocR7HMygBIkSRNA8kMwxdQEaw9ECRIDpGaYWTFDhsABTVQRLL0Tw9ISERqoSSaGgkCYaA7CNJ0PBNJSjJ6LJZGURbKqyCQ1DBbUB3BaUaQ9JaKa7pKa7cpWKIqSxEMrxcLFcT5DSbYDxGjLEhmPZBVZQNBxtJbFQHWJCNgzVAdOAAfzQM70GpMQoWJYeVpEObSBD1dABTCBczADYoex7ID+aJuGiYVZdWxJOjfbhkTTIJAaCawABrWxR8iHN5paTnUpzDjwbg0kqRRyr+XwjA8Go/HSBp6g6KJTFcGpWmYdg8H6dJTH0EZelueBfBuLwyBMd50nIfR+kmXB4BECQUAaEYMHQHRHCGFRYI2ZAwEIExghQZA2EIQoGGoEhOgGBBYlAeYYHMWJcDcGx4HYHoHmICIFjeBohkaDAAC2DAjBYJIIiKSI2CSC5hjQJBsCOCwYiIKoGmKWJkn6DANkiWgzCwYwolAcQkksWJaCuDohlicg2hDQR+EELBInKcJohMJBomILoGmISQuESFBOgkOQDg+SoTEyfoXCUSImDyGZhjkaI1hcJgTnoXgACYCYKG2GQkEkVJchKIoZDIbIciYKY+HEP4mlmThSg+aBIlKBYUCUKgGHyG4jEkPoKiAKI6D6EokGkSgyECF5jEKVJZD+aYqHKG4nGoCh+iKJ4qEqBokh+KYag6JoqmqKo2iWJpqgKRJHDiT5qk6NYtCsapmjiLprHqdo6i8awan6QovCwOp6kSLQsBsHpGjKbBbBaMYhm0CgalILBtBsUpTiGUIUAQgIA==" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "Summary" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Set ComHeight of hoBar to 16
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Summary" "1/5/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
757
|
How can I change the visual appearance of the task bar using EBN
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyPJkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHRmi8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDUKJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4KiKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJgFh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmgiYg2g2I4JiCQwuAqWIOIkEAQICA==" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Set ComHeight of hoBar to 16
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/5/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
756
|
How can I change the visual appearance of the task bar using EBN
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BZsIQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiGoZATCMbDBIcSwSGgCJCjeS4ZDKHIXSxFUKTBAcSQTGyBRokaYZRi6A4+TRPETTWAEcABHSbQCoKTKAoCHpLQLMYxDKItJSpGYaRgqWCaZpuUIaUzKVbxbK9CSMGiQbIsOJrBqqQozWZHVITLR9VgBNqga7uGR5DoqdovU5dVTVda9Ly5LSsMQvfALCqOe45URdNp3RiVBYfI6+cZvfJLWh4NqeAbCMC1UJoYhlUKCBg0TRoVo9AIDX5QWaYXC0AkBA==" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Set ComHeight of hoBar to 16
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/5/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
755
|
Is there any way to change the units and count of units used in resizing or moving a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComDrawGridLines of hoChart to True
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "6/21/2005"
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComResizeUnitCount of hoChart to 8
Set ComUnitWidth of hoChart to 64
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%mmm%></b> <%dd%>"
Set ComDrawGridLines of hoLevel to True
Send Destroy to hoLevel
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Send ComAddBar of hoItems h "Task" "6/22/2005" "6/23/2005 4:00:00 PM" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "" "6/22/2005" "6/24/2005" "some <font Comic Sans MS;12><a>text</a></font> here"
Get ComInsertItem of hoItems h "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/23/2005 8:00:00 AM" "6/28/2005" Nothing Nothing
Send ComAddLink of hoItems "Link1" h "" h1 ""
Set ComLink of hoItems "Link1" OLEexLinkStartPos to 0
Set ComLink of hoItems "Link1" OLEexLinkText to "<bgcolor=FFFFFF> Link <a>1</a> </bgcolor>"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
754
|
When trying to resize, move or create a bar, it appears that you can only resize, move or create it in the units that were specified for the level in the timeline. Is there any way to change the units used in resizing or moving a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "6/21/2005"
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComUnitWidth of hoChart to 64
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%mmm%></b> <%dd%>"
Send Destroy to hoLevel
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Send ComAddBar of hoItems h "Task" "6/22/2005" "6/23/2005 4:00:00 PM" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "" "6/22/2005" "6/24/2005" "some <font Comic Sans MS;12><a>text</a></font> here"
Get ComInsertItem of hoItems h "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/23/2005 8:00:00 AM" "6/28/2005" Nothing Nothing
Send ComAddLink of hoItems "Link1" h "" h1 ""
Set ComLink of hoItems "Link1" OLEexLinkStartPos to 0
Set ComLink of hoItems "Link1" OLEexLinkText to "<bgcolor=FFFFFF> Link <a>1</a> </bgcolor>"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
753
|
How can I clip the HTML text or caption inside the bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComPattern of hoBar1 to OLEexPatternBox
Set ComHeight of hoBar1 to 13
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "This is a bit of text that get's clipped"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 3
Send Destroy to hoItems
End_Procedure
|
|
752
|
How to show the overallocation/workload histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 70
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramCriticalColor of hoBar to (RGB(255,0,0))
Set ComHistogramPattern of hoBar to OLEexBezierCurve
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Send ComAddBar of hoItems h "Summary" "6/21/2005" "7/1/2005" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/28/2005" Nothing Nothing
Get ComInsertItem of hoItems h "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/23/2005" "7/1/2005" "E" Nothing
Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
Get ComInsertItem of hoItems h "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/25/2005" "6/27/2005" "E" Nothing
Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 2
Set ComItemBar of hoItems h1 "E" OLEexBarCaption to "move/resize this"
Set ComItemBar of hoItems h1 "E" OLEexBarHAlignCaption to 18
Set ComItemBar of hoItems h1 "E" OLEexBarToolTip to "Click the bar and move or resize it. The histogram-graph will be updated."
Send ComAddLink of hoItems "Link1" h "" h1 "E"
Set ComLink of hoItems "Link1" OLEexLinkStartPos to 0
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
751
|
How to show the overload histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 70
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (|CI$100 + OLEexPatternDot)
Set ComHistogramType of hoBar to OLEexHistOverload
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Send ComAddBar of hoItems h "Summary" "6/21/2005" "7/1/2005" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/28/2005" Nothing Nothing
Get ComInsertItem of hoItems h "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/23/2005" "7/1/2005" "E" Nothing
Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
Get ComInsertItem of hoItems h "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/25/2005" "6/27/2005" "E" Nothing
Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 2
Set ComItemBar of hoItems h1 "E" OLEexBarCaption to "move/resize this"
Set ComItemBar of hoItems h1 "E" OLEexBarHAlignCaption to 18
Set ComItemBar of hoItems h1 "E" OLEexBarToolTip to "Click the bar and move or resize it. The histogram-graph will be updated."
Send ComAddLink of hoItems "Link1" h "" h1 "E"
Set ComLink of hoItems "Link1" OLEexLinkStartPos to 0
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
750
|
How can I align the text/caption on the scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollPartCaption OLEexHScroll OLEexLowerBackPart to "left"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexLowerBackPart to OLELeftAlignment
Set ComScrollPartCaption OLEexHScroll OLEexUpperBackPart to "right"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexUpperBackPart to OLERightAlignment
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns 1 to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 2 to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 3 to Nothing
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Get ComAdd of hoColumns3 4 to Nothing
Send Destroy to hoColumns3
End_Procedure
|
|
749
|
How do I programmatically control the position of the horizontal scroll bar in the chart area, so I can specify a range of dates to scorll within
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 56
Set ComScrollRange of hoChart OLEexStartDate to "1/1/2001"
Set ComScrollRange of hoChart OLEexEndDate to "1/31/2001"
Set ComFirstVisibleDate of hoChart to "1/12/2001"
Send Destroy to hoChart
Variant v
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Get ComScrollRange of hoChart1 OLEexStartDate to v
Send Destroy to hoChart1
Set ComScrollPartCaption OLEexHChartScroll OLEexLowerBackPart to v
Set ComScrollPartCaptionAlignment OLEexHChartScroll OLEexLowerBackPart to OLELeftAlignment
Variant v1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Get ComScrollRange of hoChart2 OLEexEndDate to v1
Send Destroy to hoChart2
Set ComScrollPartCaption OLEexHChartScroll OLEexUpperBackPart to v1
Set ComScrollPartCaptionAlignment OLEexHChartScroll OLEexUpperBackPart to OLERightAlignment
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/15/2001" "1/18/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/11/2001" "K1" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
748
|
How can I programmatically control the position of the "splitter" between the item list on the left side and the gantt chart on the right
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 196
Send Destroy to hoChart
End_Procedure
|
|
747
|
How can I add a milestone bar and some text in the chart area
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Milestone" "1/2/2001" "1/2/2001" "<a1>text</a> outside"
Set ComItemBar of hoItems h OLEexBarHAlignCaption to 18
Send Destroy to hoItems
End_Procedure
|
|
746
|
How can I display or align the bar's caption or text outside of the bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Set ComDefaultItemHeight to 32
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCaption to "<b>to do</b>"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 18
Set ComItemBar of hoItems h "K1" OLEexBarVAlignCaption to 16
Send Destroy to hoItems
End_Procedure
|
|
745
|
How can I display or align the bar's caption or text outside of the bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCaption to "to do"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 16
Send Destroy to hoItems
End_Procedure
|
|
744
|
How can I display or align the bar's caption or text outside of the bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCaption to "to do "
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 18
Send Destroy to hoItems
End_Procedure
|
|
743
|
Is there any option to keep the working days being constant while user moves the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Set ComItemBar of hoItems h "A" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
742
|
Is there any option to count or to specify the working days
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "S"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComPaneWidth of hoChart2 False to 48
Send Destroy to hoChart2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "S" "1/3/2002" "1/4/2002" "A" Nothing
Set ComItemBar of hoItems h "A" OLEexBarWorkingCount to 4
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
741
|
How do I select the next row/item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems (ComNextVisibleItem(hoItems,(ComFocusItem(hoItems)))) to True
Send Destroy to hoItems
End_Procedure
|
|
740
|
How do I get the selected bars or links
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to OLEexSelectBarsOnly
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Send Destroy to hoItems
Send ComEndUpdate
Variant v
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComSelectedObjects of hoItems1 OLEexSelectBarsOnly to v
Send Destroy to hoItems1
Showln "Bars" v
Variant v1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComSelectedObjects of hoItems2 OLEexSelectLinksOnly to v1
Send Destroy to hoItems2
Showln "Links" v1
End_Procedure
|
|
739
|
How can I allow a single link being selected in the chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to (OLEexSelectSingleObject + OLEexSelectLinksOnly)
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2002" "1/4/2002" "A" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddLink of hoItems "AB" h1 "A" h2 "B"
Send ComAddLink of hoItems "BA" h2 "B" h1 "A"
Set ComLink of hoItems "AB" OLEexLinkSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
738
|
How can I allow a single bar being selected in the chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to (OLEexSelectSingleObject + OLEexSelectBarsOnly)
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Send ComAddLink of hoItems "AB" h "A" h "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
737
|
How do I define the visual appearance of the bar by using your EBN/skin files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "EBN" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "EBN" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
736
|
Is it possible to have an "empty box" pattern for the bars
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "Box" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBox
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Box" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
735
|
How do I enable resizing ( changing the height ) the items at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComItemsAllowSizing to OLEexResizeItem
Set ComDrawGridLines to OLEexHLines
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHeight of hoItems1 (ComAddItem(hoItems1,"Item 2")) to 48
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
734
|
How do I enable resizing all the items at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComItemsAllowSizing to OLEexResizeAllItems
Set ComDrawGridLines to OLEexHLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHeight of hoItems1 (ComAddItem(hoItems1,"Item 2")) to 48
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
733
|
How can I use your EBN files in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternEmpty
Set ComHistogramColor of hoBar to |CI$1000000
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
732
|
How can I draw only the shape of the bars in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexBezierCurve
Set ComHistogramColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
731
|
How can I draw only the shape of the bars in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to |CI$100
Set ComHistogramColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
730
|
How can I change the color of bars in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
729
|
How can I show my bars in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
728
|
I'm trying to use the percentage display in my gantt's bars. Unfortunately, I don't see any percentage on the gantt chart
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "BarName" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Set ComPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars1
Get ComBars of hoChart2 to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "BarName%Progress" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "Percent"
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Percent" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Send Destroy to hoItems
End_Procedure
|
|
727
|
How can I show the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 0
Send Destroy to hoLevel
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voLevel1
Get ComLevel of hoChart2 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%mr%>"
Set ComUnit of hoLevel1 to OLEexMonth
Send Destroy to hoLevel1
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComHistogramVisible of hoChart3 to True
Send Destroy to hoChart3
End_Procedure
|
|
726
|
How I can show Months in Time Unit panel into Roman numerals
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 0
Send Destroy to hoLevel
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voLevel1
Get ComLevel of hoChart2 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%mr%>"
Set ComUnit of hoLevel1 to OLEexMonth
Send Destroy to hoLevel1
Send Destroy to hoChart2
End_Procedure
|
|
725
|
Can I show a bar with a different vertical position
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Opaque" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Get ComAddItem of hoItems "Transparent and Opaque" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarOffset to "-3"
Set ComItemBar of hoItems h "K1" OLEexBarTransparent to 80
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" "K2" Nothing
Send Destroy to hoItems
End_Procedure
|
|
724
|
How can I show transparent and opaque bars in the same chart
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Opaque" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Get ComAddItem of hoItems "Transparent and Opaque" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarOffset to "-3"
Set ComItemBar of hoItems h "K1" OLEexBarTransparent to 80
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" "K2" Nothing
Send Destroy to hoItems
End_Procedure
|
|
723
|
How can I draw bars using transparent colors
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComShowTransparentBars of hoChart to 60
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars
Get ComBars of hoChart2 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "TaskR" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComPaneWidth of hoChart3 False to 48
Send Destroy to hoChart3
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" Nothing
Send ComAddBar of hoItems h "TaskR" "1/4/2001" "1/7/2001" "B" Nothing
Send Destroy to hoItems
End_Procedure
|
|
722
|
How do I select bars and links in the chart area, by dragging
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to OLEexSelectObjects
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2002" "1/4/2002" "A" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddLink of hoItems "AB" h1 "A" h2 "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
721
|
How do I remove, delete the objects like bars and links selected in the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to OLEexSelectObjects
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2002" "1/4/2002" "A" Nothing
Set ComItemBar of hoItems h1 "A" OLEexBarSelected to True
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddLink of hoItems "AB" h1 "A" h2 "B"
Send Destroy to hoItems
Send ComEndUpdate
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Send ComRemoveSelection of hoChart2
Send Destroy to hoChart2
End_Procedure
|
|
720
|
How do I select links and bars in the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to OLEexSelectObjects
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2002" "1/4/2002" "A" Nothing
Set ComItemBar of hoItems h1 "A" OLEexBarSelected to True
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/6/2002" "1/10/2002" "B" Nothing
Set ComItemBar of hoItems h2 "B" OLEexBarSelected to True
Send ComAddLink of hoItems "AB" h1 "A" h2 "B"
Set ComLink of hoItems "AB" OLEexLinkSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
719
|
How do I select links in the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to OLEexSelectLinksOnly
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2002" "1/4/2002" "A" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddLink of hoItems "AB" h1 "A" h2 "B"
Set ComLink of hoItems "AB" OLEexLinkSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
718
|
How do I select bars, or tasks in the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectObjects of hoChart to OLEexSelectBarsOnly
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Send ComAddLink of hoItems "AB" h "A" h "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
717
|
Can I change the Task bar so it display a Progress or a Percent bar, but it is splitted when the task intersect a non working area
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComShowTransparentBars of hoChart to 60
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task%Progress:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/16/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.15
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Send Destroy to hoItems
End_Procedure
|
|
716
|
Can I change the Task bar so it display a Progress or a Percent bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task%Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.15
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Send Destroy to hoItems
End_Procedure
|
|
715
|
How can I remove the filter
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComApplyFilter
Send ComClearFilter
End_Procedure
|
|
714
|
I use the ShowEmptyBars property, but I display seconds from 15 to 15, and the bars are not shown correctly. What can I do
Procedure OnCreate
Forward Send OnCreate
Set ComSelBackColor to (RGB(255,0,0))
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComShowEmptyBars of hoChart to 15
Set ComShowEmptyBarsUnit of hoChart to OLEexSecond
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2002 12:00:15 AM" "1/1/2002 12:00:15 AM" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/1/2002 12:01:15 AM" "1/1/2002 12:01:30 AM" "B" Nothing
Send ComAddLink of hoItems "AB" h "A" h "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
713
|
I need the bar works like in the MS Project, where task from 1/1/2001 to 1/1/2001 must display 1 day
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComShowEmptyBars of hoChart1 to 1
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2001" "1/1/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
712
|
I have a bar that has the start and end date identical. Nothing is displayed. What can I do
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComShowEmptyBars of hoChart1 to 1
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/2/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
711
|
How can I display seconds and bars for 15 to 15
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2002"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComLevelCount of hoChart2 to 2
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComShowEmptyBars of hoChart3 to 0
Send Destroy to hoChart3
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Variant voLevel
Get ComLevel of hoChart4 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Send Destroy to hoChart4
Variant voChart5
Get ComChart to voChart5
Handle hoChart5
Get Create (RefClass(cComChart)) to hoChart5
Set pvComObject of hoChart5 to voChart5
Variant voLevel1
Get ComLevel of hoChart5 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Send Destroy to hoChart5
Variant voChart6
Get ComChart to voChart6
Handle hoChart6
Get Create (RefClass(cComChart)) to hoChart6
Set pvComObject of hoChart6 to voChart6
Set ComPaneWidth of hoChart6 False to 48
Send Destroy to hoChart6
Variant voChart7
Get ComChart to voChart7
Handle hoChart7
Get Create (RefClass(cComChart)) to hoChart7
Set pvComObject of hoChart7 to voChart7
Variant voBars
Get ComBars of hoChart7 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "Task2" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart7
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2002 12:00:15 AM" "1/1/2002 12:00:45 AM" "A" Nothing
Send ComAddBar of hoItems h "Task2" "1/1/2002 12:01:15 AM" "1/1/2002 12:01:45 AM" "B" Nothing
Send ComAddLink of hoItems "AB" h "A" h "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
710
|
How can I vertically display the column's caption, in the header
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHeaderVertical of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComHeaderVertical of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "H" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComHeaderVertical of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
End_Procedure
|
|
709
|
How can I copy a predefined bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "T2" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "T2" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
708
|
How can I define my own custom bar, using my icons or pictures
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Send ComAddShapeCorner of hoBars 12345 1
Send ComAddShapeCorner of hoBars 22345 2
Variant voBar
Get ComAdd of hoBars "T2" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComStartShape of hoBar to (|CI$5740 + OLEexShapeIconCircleUp1)
Set ComEndShape of hoBar to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
Set ComEndColor of hoBar to (RGB(255,0,0))
Set ComPattern of hoBar to OLEexPatternDot
Set ComColor of hoBar to (RGB(255,0,255))
Set ComShape of hoBar to OLEexShapeThinCenter
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "T2" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
707
|
How can I access a predefined bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
End_Procedure
|
|
706
|
How can I access a predefined bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
End_Procedure
|
|
705
|
How can I remove all predefined bars
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
704
|
How can I remove a predefined bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
703
|
How do I get the number of predefined bars
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant vColumnCaption
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Get ComCount of hoBars to vColumnCaption
Send Destroy to hoBars
Send Destroy to hoChart
Get ComAdd of hoColumns vColumnCaption to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
702
|
How can I change the shape of the task bar
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "T2" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComEndShape of hoBar to OLEexShapeIconDown1
Set ComEndColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "T2" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
701
|
How can I change the ending shape for all task bars
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComEndShape of hoBar1 to OLEexShapeIconUp1
Set ComEndColor of hoBar1 to (RGB(255,0,0))
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|